home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / faq / trekgui.lha / Trx / about next >
Text File  |  1995-11-03  |  642b  |  18 lines
  1. /* arexx script  */
  2.  
  3. idcmp = 'CLOSEWINDOW+GADGETUP'
  4. flags = 'WINDOWCLOSE+BACKFILL+ACTIVATE'
  5.  
  6. address ARexx "'call CreateHost(hostport, notifyport, trekguide)'"
  7.  
  8. WaitForPort hostport
  9. WaitForPort hostport
  10.  
  11. call OpenWindow(hostport, 140, 80, 385, 254, idcmp, flags, 'About Trek-The Guide')
  12. call SetNotify(hostport, CLOSEWINDOW, hostport)
  13.  
  14. /*call windowtext(hostport, 'Trek-The Guide v1.5\©1995 Jim Hines REGISTERED VERSION\ \Distributed by Exclusive PD, UK\ \Star Trek and related marks are\trademarks of Paramount Pictures\ALL RIGHTS RESERVED')*/
  15. call IFFImage(hostport, 'TREKGUIDE:TREKPICS/UFP', 5, 11, 390, 256, nocolor)
  16.  
  17. closeport(hostport)
  18.